home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_175_Progress2 < prev    next >
Text File  |  1998-02-04  |  2KB  |  57 lines
  1. ItemType: WIND
  2. Rect: 251,181,581,261
  3. AutoSize: FALSE
  4. Style: 37
  5. Logic: Window
  6. HasTitleBar: FALSE
  7. HasZoomBox: FALSE
  8. HasCloseBox: FALSE
  9. HasGrowBox: FALSE
  10. MinSize: 100,50
  11. MaxSize: 32767,32767
  12. Name: Progress2
  13. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then¬  -- Close any existing windows by same name¬  if there is a window (gProgressWindowName) then¬    wsSend gProgressWindowName,"0","Close"¬  end if¬  ¬  wsSet "Progress2","0","Name",gProgresswindowName ¬  centerWindow gProgressWindowName,3¬  ¬  if not wsGet(gProgressWindowName,"Stop","Visible") then¬    wsSet gProgressWindowName,"progressBar","Width",  wsget(gProgressWindowName,"ProgressBar","Width") + 65¬  end if ¬  ¬  if wsGet(gProgressWindowName,"StopMesssage","Visible") then¬    wsSet gProgressWindowName,0,"Height",80¬  else¬    wsSet gProgressWindowName,0,"Height",70¬  end if ¬end if¬¬--end windowEvent¬¬
  14. Params: i2_Name¬i4_Visible¬i5_Visible
  15.  
  16. ItemType: CNTL
  17. Rect: 7,43,258,55
  18. BlackColor: 17476,17476,17476
  19. WhiteColor: -13108,-13108,-1
  20. Name: ProgressBar
  21. Style: Progress7
  22. Min: 0
  23. Max: 100
  24. Value: 0
  25. Step: 1
  26. Leap: 10
  27.  
  28. ItemType: LBL
  29. Rect: 8,10,82,26
  30. Text: Importing:
  31.  
  32. ItemType: TEXT
  33. Rect: 82,11,322,27
  34. AutoSize: FALSE
  35. Name: CurrentTitle
  36.  
  37. ItemType: PUSH
  38. Rect: 262,39,322,59
  39. AutoSize: FALSE
  40. Name: Stop
  41. CancelItem: TRUE
  42. AutoClose: TRUE
  43. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬--end mouseUp
  44.  
  45. ItemType: TEXT
  46. Rect: 8,62,324,75
  47. TextSize: 10
  48. AutoSize: FALSE
  49. Name: StopMesssage
  50. Text: Press and hold down the  and Period (.) keys to stop.
  51.  
  52. ItemType: TEXT
  53. Rect: 8,28,261,41
  54. TextFont: Geneva
  55. TextSize: 9
  56. AutoSize: FALSE
  57. Name: SecondaryMessage